home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
graphics
/
circuit_macros
/
examples
/
ex2.m4
< prev
next >
Wrap
Text File
|
1994-03-13
|
1KB
|
35 lines
.PS
define(`elen_',`dimen_')
linewid = 0.85
Ct:dot
Point_(-60); capacitor; {"$C_3$" at last line.c + vec_(0.13,0.13)}
Cr:dot
left_; capacitor; llabel(C_2,,)
Cl:dot
capacitor(from Ct to Cl); {"$C_1$" at last line.c + vec_(-0.13,0.13)}
T:dot(at Ct+(0,elen_))
inductor(from T to Ct); {"$L_1$" at last line.c + vec_(0.12,-0.07)}
Point_(-30); inductor(from Cr to Cr+vec_(elen_,0))
{"$L_3$" at last line.c + vec_(0,-0.07)}
R:dot
L:dot( at (Cl-(Cos(30)*(elen_),0),R) )
inductor(from L to Cl); {"$L_2$" at last line.c + vec_(0,-0.10)}
right_; resistor(from L to R); rlabel(,R_2,)
resistor(from T to R); {"$R_3$" at last line.c + vec_(0,0.15)}
arrow from T to 0.25<T,R>; "$y$" at last arrow.end +vec_(0,0.1)
line from L to 0.2<L,T>
source(to 0.5<L`,'T>)
{ "$+$" at last line.c + (vscal_(dimen_/3, Cos(75),Sin(75)))}
{ "$-$" at last line.c + (vscal_(dimen_/3, Cos(225),Sin(225)))}
{ "$u$" at last line.c + (vscal_(dimen_/3, Cos(150),Sin(150)))}
resistor(to 0.8<L`,'T>); {"$R_1$" at last line.c + vec_(0,0.15)}
line to T
.PE